#实践2
#1 建立对象######
#建立一个中文对象
A<-("我")
#建立一个英文对象
B<-"English"
#建立一个隐藏对象
.C<-"hello"
#2一维数据练习#####
values1 <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
# 创建一个因子，分成3组
groups <- cut(values1, breaks = 3, labels = c("Group 1", "Group 2", "Group 3"))
# 使用tapply函数计算不同组间的均值
means <- tapply(values1, groups, mean)
# 打印结果
print(means)

#3.二维数据练习#####
# 创建第二个和第三个包含10个数的数值向量
values2 <- seq(11, 20)
values3 <- seq(21, 30)
# 合并成一个数据框，并且分成3组
df <- data.frame(values = c(values1, values2, values3), 
                 groups = rep(groups, 3))
# 打印数据框
print(df)
#4.1条件语句练习#####
num=sample(1:50,10,replace=TRUE)
print(num)
count<-0
i<-1
while(i<=length(num)){
  if(num[i]>10)
    {count<-count+1}
  i<-i+1}
print(count)
#4.2排序#####
num1 <- sample(1:50, 10, replace = TRUE)
print(num1)

BS <- function(num) {
  n <- length(num)
  for (i in 1:(n - 1)) {
    for (j in (i + 1):n) {
      if (num[i] > num[j]) {
        temp <- num[i]
        num[i] <- num[j]
        num[j] <- temp
      }
    }
  }
  return(num)
}

sorted_num1 <- BS(num1)
print(sorted_num1)

 
